home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / Superbase4_d2.adf / Ideas / IDEAS92.SBP < prev    next >
Text File  |  1992-08-05  |  1KB  |  51 lines
  1. SBP
  2.  ÿ½ ideas92
  3.  ÿÊÿfÿe
  4.  ÿÂ"Please select a text file for input","",13,req%,req$
  5.  ÿ¡req%ÿ0ÿreq$ÿ""ÿpÿ’
  6.  ÿ´req$ÿ›ÿ¤
  7.  lines%ÿ0:sents%ÿ0:words%ÿ0
  8.  paras%ÿ0:pages%ÿ0:isblank%ÿ0
  9.  ÿØÿOÿB("*")
  10. ÿ¤ÿcln$
  11. ÿ¡(ÿ.(ÿ+(ln$,1))ÿ27)ÿpÿwendloop
  12. ln$ÿÿF(ÿH(ln$))
  13. lines%ÿlines%ÿ1
  14. ÿ¡ÿ/(ln$)ÿ0ÿp
  15. ÿ¡isblank%ÿ0ÿpparas%ÿparas%ÿ1
  16. isblank%ÿ1
  17. ÿ^
  18. isblank%ÿ0
  19. ptr%ÿ1:old%ÿ1
  20. ÿØptr%ÿ0
  21. ptr%ÿÿ?(old%,ln$,".")
  22. ÿ¡ptr%ÿold%ÿpsents%ÿsents%ÿ1
  23. old%ÿptr%ÿ1
  24. ÿÙ
  25. ptr%ÿ1:old%ÿ1
  26. ÿØptr%ÿ0
  27. ptr%ÿÿ?(old%,ln$," ")
  28. ÿ¡ptr%ÿold%ÿpwords%ÿwords%ÿ1
  29. zz%ÿptr%:ÿ¡zz%ÿold%ÿ1ÿpwords%ÿwords%ÿ1:ÿ½ *********
  30. old%ÿptr%ÿ1
  31. ÿÙ
  32. words%ÿwords%ÿ1
  33. ÿ’ÿ¡
  34. 
  35. endloop: 
  36.  ÿÙ
  37.  ÿ†ÿ¤
  38.  pages%ÿÿ(lines%ÿ60)
  39.  ÿ¡lines%ÿ60ÿ0ÿppages%ÿpages%ÿ1
  40.  ÿ‡
  41.  ÿ{ÿÓ"Document statistics for file: ";req$ÿÖÿe
  42.  ÿ{
  43.  ÿ{"Total Words      :";ÿ(words%,"999999")
  44.  ÿ{"Total Sentences  :";ÿ(sents%,"999999")
  45.  ÿ{"Total Lines      :";ÿ(lines%,"999999")
  46.  ÿ{"Total Paragraphs :";ÿ(paras%,"999999")
  47.  ÿ{"Total pages      :";ÿ(pages%,"999999")
  48.  ÿÊÿfÿ³
  49.  ÿ’
  50.  
  51.